home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 44
/
Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso
/
-in_the_mag-
/
basics
/
amos
/
amosprog.lha
/
window.AMOS
/
window.amosSourceCode
Wrap
AMOS Source Code
|
1995-10-02
|
579b
|
40 lines
'Window in standard intuition!!!
Amos To Back
Reserve As Work 17,3000
KUPA=Start(17)
STRU$='Super okienko'
Doke KUPA,160
Doke KUPA+2,50
Doke KUPA+4,340
Doke KUPA+6,100
Doke KUPA+8,1
Doke KUPA+10,0
Doke KUPA+12,0
Doke KUPA+14,0
Doke KUPA+16,$F
Loke KUPA+18,0
Loke KUPA+22,0
Loke KUPA+26,Varptr(STRU$)
Loke KUPA+30,0
Loke KUPA+34,0
Doke KUPA+38,80
Doke KUPA+40,50
Doke KUPA+42,640
Doke KUPA+44,200
Doke KUPA+46,1
'STRU$=STRU$
Areg(0)=KUPA
C=Intcall(-204)
Areg(1)=0
Dreg(0)=100
STRU$='kuion'
Areg(0)=Varptr(STRU$)
C=Gfxcall(-60)
'Wait 100
'C=Intcall(-72)
'Amos To Front
Edit